home *** CD-ROM | disk | FTP | other *** search
/ isnet Internet / Isnet Internet CD.iso / prog / chat / 12 / 12.exe / SYSTEM / nukenab.als < prev    next >
Encoding:
Text File  |  1999-03-26  |  2.0 KB  |  62 lines
  1. ; Version 3.0 (1999/04/01)
  2. ;
  3. ; The orginial script was written by Pavlov and has been
  4. ; modified by puppet, Beavis97 and Olifant
  5. ; 
  6. ; Rewritten for ircN 7.0 by The Quietust
  7. ;
  8. ; This procedure is the cornerstone of the DDE Link.
  9. ; YOU MUST NOT CHANGE THE NAME OF THE ALIAS!
  10. ;
  11. ; $1 will always be the resolved address. (0 if unresolved)
  12. ; $2 will always be the IP.
  13. ; $3 will always be the port.
  14. ; $4 will always be the protocol. (tcp or udp)
  15. ;
  16.  
  17. nuke {
  18.   if (($4 == $null) || ($5 != $null)) {
  19.     iecho Do NOT attempt to use this alias manually, used by NukeNabber.
  20.     return
  21.   }
  22.   if ($1) {
  23.     set %nuker *!*@ $+ $1
  24.     iecho Detected $hc(Nuke) connect from: $hc($1) $rbrk($2) on $sc($upper($4)) port $hc($3) 
  25.   }
  26.   else { 
  27.     set %nuker *!*@ $+ $2
  28.     iecho Detected $hc(Nuke) connect from: $hc($2) on $sc($upper($4)) port $hc($3)
  29.   }
  30.   :loop
  31.   iecho Scanning for address $hc(%nuker)
  32.   if ($ial(%nuker,0) == 0) {
  33.     iecho Could not find $hc(%nuker) in any channels.
  34.     if ($gettok(%nuker,2,64) == $1) {
  35.       set %nuker *!*@ $+ $2
  36.       goto loop
  37.     }
  38.     elseif ($gettok(%nuker,2,64) == $2) {
  39.       if ($1) .who $1
  40.       .who $2
  41.       return
  42.     }
  43.   }
  44.   set %nuke1 0
  45.   :start
  46.   inc %nuke1
  47.   if ($ial(%nuker,%nuke1)) {
  48.     set %nukechans $com.channels($ial(%nuker,%nuke1).nick)
  49.     iecho Nuker $ac(Found) $+ : $hc($ial(%nuker,%nuke1).nick) $rbrk($ial(%nuker,%nuke1).addr) on $sc($chlist(%nukechans))
  50.     set %nuke2 0
  51.     :start2
  52.     inc %nuke2
  53.     if ($gettok(%nukechans,%nuke2,44)) {
  54.       if (($me isop $gettok(%nukechans,%nuke2,44)) && ($ial(%nuker,%nuke1).nick !isop $gettok(%nukechans,%nuke2,44))) kbc $gettok(%nukechans,%nuke2,44) $ial(%nuker,%nuke1).nick Nuke Detected from $b($gettok(%nuker,2,64)) (YOU) on $upper($4) port $u($3)
  55.       else msg $gettok(%nukechans,%nuke2,44) Nuke Detected from $b($gettok(%nuker,2,64)) $paren($ial(%nuker,%nuke1).nick) on $upper($4) port $u($3)
  56.       goto start2
  57.     }
  58.     goto start
  59.   }
  60.   unset %nuker %nuke1 %nukechans %nuke2
  61. }
  62.